home *** CD-ROM | disk | FTP | other *** search
/ Digital Hollywood CD-ROM Demo / Digital Hollywood CD-ROM Demo.iso / CD-ROM Preview / TDCDdemo / CE / CE.rsrc / BITD_1031 (.txt) < prev    next >
Encoding:
AmigaBASIC Source Code  |  1994-02-07  |  489 b   |  217 lines
  1.                                                                                                                                                                                                                                                    <0x49>LSETLENLSET                                                                                                                                                                                                               <
  2. <0x3e66d6d4><0x56><0x4f><0x48>LENGOTOGOTOLEFT$GOTOrxGOSUBLENxLENLSET<0x49>EQVOR
  3. 3<0x56>LENLENGOSUByGOSUBxLEFT$sxLEFT$GOTOrrGOTOxGOSUBLEFT$LEN<0x49><0x60>IMP
  4. 2LSETGOSUBLENrLENGOSUBLENLSETMID$<0x56>=
  5. <0x50>LSETLENLEFT$GOSUByrGOSUBlabel72a3<0x50><0xa3,0x02>labelfffff4a4GOSUB<0x7e>LENlabelffffc9f3<0x60>\
  6. <0x3e66d727><0x50><0x48>sLEFT$GOSUBLENXOR<0xa3,0x02><0x3e66d731><0x48>GOSUBLENLSETXORAND
  7. <0x3e66d739><0x4f>LENryLEN<0x50><0xa3,0x02>rLEN<0x4f>*
  8. <0x3e66d749><0x50>LENGOSUBrLSET<0x7c>
  9. LENLENLSETMOD
  10. \
  11. <0x3e66d75a><0x50>LENxGOSUBLSET<0x7d>
  12. GOTOx<0x50><
  13. <0x3e66d769><0x4f>GOTOxLEN=
  14.  
  15. EQVLENLEFT$<0x3e66d7a2><0x60>LOGrGOTO<0x48>
  16.  
  17. <0x4f>LENs<0x4e>>
  18. <0x3e66d7b0><0x50>LENrLOG
  19.  
  20. <0x48>GOSUBLEN<0x50><0x7e>
  21. <
  22. <0x3e66d7bf>LENGOSUByXOR
  23. LSETLENLENNOT
  24. <0x3e66d7ca><0x48>yGOSUB<0x49>
  25. <0x48>LEFT$LENNOT
  26. <0x3e66d7d5><0x7e>GOSUBrLSET<0x60><0x7e>LENTHEN
  27. varffff9d72<0x3e66d7e2>CLNG<0x60>LSETrLETTHEN
  28. <0x3e66d7ea>xGOTOLOG
  29. <0x48>LENLENNOT
  30. LET
  31. LSETLEFT$LENXOR'
  32. <0x4f>
  33. <0x4f>GOTOx<0x49>*
  34. <0xe8,0x02><0x3e66d80e>LSETGOSUBLEN<0x50>
  35.  
  36. <0x7e>LEN'
  37. labelffff9e9cy<0x7e>
  38. <0x3e66d81f><0x49>LEFT$LEN<0x50>EQV=
  39. <0x3e66d827>LENGOSUB<0x48><0x60>
  40.  
  41. <0x56>LENsLOG=
  42. LENy<0x49><0x7d>
  43. LEFT$GOTOLSET<0xe8,0x02>XOR
  44. GOSUBLENOR<0x7d>
  45. <0x3e66d84b><0x56>LENxLEN<0x4f>-
  46. GOTOxLET<0xe8,0x02><0x3e66d85a><0x49>LENGOSUBLEN<0x4f>/
  47. <0x3e66d862><0x4f>LENrLEN<0x4f><0xe8,0x02><0x3e66d86a><0x60>LSETLENxLENLSET<0x50>XOR
  48. <0x3e66d874>XOR<0x48>sGOSUBLENLEN<0xe8,0x02>LEFT$LENLEN<0x4f>XOR=<0xe8,0x02>                                                                                                                                                                    LENrLEFT$yLEN\
  49. 5<0x60><0x4f>LSETGOTOLENrLENGOSUBLENLENLSETLENLSETLENLET<0x48>LENGOTOGOSUBrLENLEN<0x48>XOR
  50.  
  51. <0x4f><0x7e>LEN40057GOSUBGOTOGOSUBxLENrLEFT$xLENLENLSET<0x50>^
  52. 51400LENLETLOGLENLENLETLEN<0x48>LET<0x48><0x49>XOR<0x7c>
  53. AND
  54.  
  55. <0x60>+
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137.  
  138.  
  139.  
  140.  
  141.  
  142.  
  143.  
  144.  
  145.  
  146.  
  147.  
  148.  
  149.  
  150.  
  151.  
  152.  
  153.  
  154.  
  155.  
  156.  
  157.  
  158.  
  159.  
  160.  
  161.  
  162.  
  163.  
  164.  
  165.  
  166.  
  167.  
  168.  
  169.  
  170.  
  171.  
  172.  
  173.  
  174.  
  175.  
  176.  
  177.  
  178.  
  179.  
  180.  
  181.  
  182.  
  183.  
  184.  
  185.  
  186.  
  187.  
  188.  
  189.  
  190.  
  191.  
  192.  
  193.  
  194.  
  195.  
  196.  
  197.  
  198.  
  199.  
  200.  
  201.  
  202.  
  203.  
  204.  
  205.  
  206.  
  207.  
  208.  
  209.  
  210.  
  211.  
  212.  
  213.  
  214.  
  215.  
  216.  
  217.